B u t t o n   1   T e x t   " 2 2 M 4 C W " 
 
 B u t t o n   2   T e x t   " 2 M 4 C C W " 
 
 B u t t o n   4   T e x t   " S T A R T " 
 
 B u t t o n   5   T e x t   " S T O P " 
 
 
 
 C O M   O p e n   1 2   9 6 0 0 
 
 s 1   =   C O M _ S t a t u s 
 
 s 2   =   C O M _ P o r t N a m e s 
 
 
 
 O p t i o n   S p e e d   9 
 
 C o n t r o l s   O p e n T e x t B o x 
 
 G o t o   T i m e r 1 
 
 S t o p 
 
 
 
 L a b e l   " 2 2 M 4 C W " 
 
 	 C O M   W r i t e S t r i n g   " 2 2 M 4 C W "   +   C R   +   L F 
 
 R e t u r n 
 
 
 
 L a b e l   " 2 M 4 C C W " 
 
 	 C O M   W r i t e S t r i n g   " 2 M 4 C C W "     +   C R   +   L F 
 
 R e t u r n 
 
 
 
 L a b e l   " S T A R T " 
 
 	 C O M   W r i t e S t r i n g   " S T A R T "     +   C R   +   L F 
 
 R e t u r n 
 
 
 
 L a b e l   " S T O P " 
 
 	 C O M   W r i t e S t r i n g   " S T O P "     +   C R   +   L F 
 
 R e t u r n 
 
 
 
 L a b e l   T i m e r 1 
 
 	 s 2   =   C O M _ R e c e i v e d 
 
 	 I f   s 2   < >   " " 
 
 	 	 P r i n t   s 2 
 
 	 E n d I f 
 
 	 W a i t   S e c o n d s   0 . 1 
 
 G o t o   T i m e r 1 
 
 
 
 ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '   s e r i a l   p o r t   c o m m a n d   l i s t 
 
 ' = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 ' C O M   O p e n   1   9 6 0 0 
 
 ' 
 
 ' s 1   =   C O M _ S t a t u s 
 
 ' P r i n t   s 1 
 
 ' 
 
 ' s 2   =   C O M _ R e c e i v e d 
 
 ' P r i n t   s 1 
 
 ' 
 
 ' s 1   =   C O M _ P o r t N a m e s 
 
 ' P r i n t   s 1 
 
 ' 
 
 ' v 1   =   S p a c e S e p a r a t e d S t r i n g C o u n t ( C O M _ P o r t N a m e s ) 
 
 ' 
 
 ' s 1   =   S p a c e S e p a r a t e d S t r i n g ( C O M _ P o r t N a m e s , 3 ) 
 
 ' 
 
 ' 
 
 ' C O M   W r i t e S t r i n g   s 1   +   C R L F 
 
 ' 
 
 ' C O M   W r i t e L i n e   s 1 
 
 ' 
 
 ' C O M   D i s c a r d O u t B u f f e r 
 
 ' 
 
 ' C O M   D i s c a r d I n B u f f e r 
 
 ' 
 
 ' C O M   E n a b l e D T R 
 
 ' 
 
 ' C O M   E n a b l e R T S 
 
 ' 
 
 ' C O M   D i s a b l e D T R 
 
 ' 
 
 ' C O M   D i s a b l e R T S 
 
 ' 
 
 ' C O M   C l o s e 
 
 ' 
 
 
 
 
 
 ' W A T C H   C O M _ P o r t N a m e s 
 
 ' W A T C H   C O M _ S t a t u s 
 
 ' W A T C H   C O M _ R e c e i v e d 
 
 